home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / COLORB.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  619 b   |  29 lines
  1. 1 REM ***** COLOR BARS *****
  2. 2 PRINTCHR$(147):PRINT"         C O L O R   B A R S"
  3. 5 PRINT:PRINT:PRINT"       *HIT SPACE BAR TO END!*"
  4. 7 FORD=1TO5000
  5. 10 NEXTD
  6. 20 PRINTCHR$(147)
  7. 25 LETA=1
  8. 27 POKE53280,0
  9. 28 POKE53281,0
  10. 30 PRINTCHR$(144);CHR$(18)"  ";CHR$(28);CHR$(18)"      ";
  11. 40 PRINTTAB(8);CHR$(159);CHR$(18)"      ";CHR$(156);CHR$(18)"      ";
  12. 50 PRINTTAB(20);CHR$(30);CHR$(18)"      ";CHR$(31);CHR$(18)"      ";
  13. 60 PRINTTAB(32);CHR$(158);CHR$(18)"      ";CHR$(144);CHR$(18)"  ";
  14. 70 A=A+1
  15. 75 IFA<20THEN30
  16. 77 LETB=1
  17. 80 PRINTCHR$(144);CHR$(18)"        "CHR$(5);CHR$(18)"      ";
  18. 90 PRINTCHR$(144);CHR$(18)"                          ";
  19. 95 B=B+1
  20. 100 IFB<6THEN80
  21. 110 FORX=1TO500
  22. 120 NEXTX
  23. 125 GETC$
  24. 127 IFC$=" "THEN150
  25. 130 GOTO110
  26. 150 POKE53280,14
  27. 160 POKE53281,6
  28. 170 PRINT"[154]"
  29.